dim name
name =inputbox("Input your name ","name")
msgbox name,,"Your name"